<%@ Page Language="VB" MasterPageFile="~/Default.master" Title="Untitled Page" %>
<script runat="server">

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
        If Request("username") Is Nothing = False Then
            Dim Mem As MembershipUser = Membership.GetUser(Request("username"))
            If ClubStarterKit.Web.UserAdministration.NeedsAdminVerification() = True Then
                ClubStarterKit.Web.UserAdministration.SendAdminVer(Mem)
                statusttl.Text = "Admin Verification Required"
                status.Text = "Your email has been verified. Please wait while an administrator verifies your account. You will recieve an email when your account has been verified and is ready for use."
            Else
                Mem.IsApproved = True
                Membership.UpdateUser(Mem)
                ClubStarterKit.Web.UserAdministration.ApprovedEmail(Mem)
                statusttl.Text = "Activated!"
                status.Text = "Your email has been verified and your account has been activated. Please go to <a href='login.aspx'>this page</a> to login."
            End If
        Else
            statusttl.Text = "Error"
            status.Text = "There has been an error. Please contact the webmaster by <a href='mailto:'" & ClubStarterKit.Web.Settings.Webmaster() & "'>email</a> with you username."
        End If
    End Sub
</script>

<asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1" Runat="Server">
<div id="body">
    <div class="fullwidth">
    <h2><asp:Label ID="statusttl" runat="server" /></h2><br />
    <asp:Label ID="status" runat="server" />
    </div>
</div>
</asp:Content>

